<%

Function mercado_remover_jogador(conexao, id_jogador, id_clube)

		If mercado_get_jogador_clube(conexao, id_jogador) > 0 then
		
					If mercado_get_clube_capitao(conexao, id_clube) = id_jogador then
					
							mercado_remover_clube_capitao conexao, id_clube 
							
					End If
		
					str = "DELETE FROM jogadores WHERE id_jogador="&id_jogador
  					Set rs = conexao.Execute(str)	
					
					DIM data_out
					
					data_out = get_data()
					
					str = "UPDATE jogadores_historico SET "
					str = str & "data_out='"&data_out&"' "
					str = str & " WHERE id_clube="&id_clube&" AND id_jogador="&id_jogador&" AND data_out IS NULL"
					Set rsI = conexao.Execute(str)
		
		
		End If
		

End Function

%>